home *** CD-ROM | disk | FTP | other *** search
/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 2.iso / STUTTGART / SOUND / RTRACK / !RTracker / Resources / !Intro (.txt) next >
RISC OS BBC BASIC V Source  |  1997-04-07  |  2KB  |  93 lines
  1.  Risc Tracker Intro
  2.  (c) 1995-97 Ian Clark
  3.  This program is not to be distributed seperatly
  4.  from the Risc Tracker application
  5. 0,"Intro error: "+
  6. $+" at line "+
  7. ZA_$="3.27":
  8. B_% 256:
  9. 131107,"RTrack$SlotSize",B_%,256,0,3
  10. ,,C_%;D_%:B_%?C_%=0:
  11. E_%=200
  12. :E_%=
  13. F_(B_%))
  14. 262380,-1,-1
  15. ,G_%,H_%:E_%=E_%*1024:
  16. G_%>H_% G_%=H_%
  17. H_%>G_% G_%=H_%
  18. G_%<E_%
  19. 0,"Application needs at least "+
  20. (E_%/1024)+"k to start up."
  21. "RTracker_Version"
  22. A_%<130
  23. 0,"Risc tracker needs version 1.30 or later of the Risc Tracker support module"
  24. 262386,2
  25. I_%:I_$=
  26. F_(I_%):
  27. 53,-1,3
  28. ,,J_%:
  29. J_%>63
  30. J_%<0
  31. I_$="32"
  32. !jK_$="<RTrack$Dir>.Resources.BSprites"+I_$:
  33. 8,17,K_$
  34. J_%<>1
  35. K_$="<RTrack$Dir>.Resources.BSprites"
  36. M_(K_$):!B_%=0:
  37. 262336,310,&4B534154,"Risc Tracker intro",B_%
  38. ,N_%:
  39. 262361,,"<RTrack$Dir>.Resources.Templates":
  40. 262363,,-1,-1,,-1,"Splash",0
  41. ,b%,i%,,,,C_%:
  42. O_% b%:
  43. P_% i%:
  44. Q_% 256:
  45. 4:Q_%!x%=0:
  46. 262363,,O_%,P_%,P_%+i%,Q_%,"Splash",0:O_%!64=L_%:
  47. 262337,,O_%
  48. R_%:S_%=
  49. "Rooster_Seticontext",R_%,12,
  50. A_$,4),0:
  51. "Rooster_Centrew",R_%:
  52. 262343,,B_%
  53. T_%=2
  54. 262341,,B_%
  55. T_%=0:
  56. 262380,-1,-1
  57. ,G_%,H_%:
  58. 262380,-1,E_%:
  59. 262366,"Run <RTrack$Dir>.!RunImage":
  60. 262380,-1,G_%:t%=
  61. 262343,,B_%
  62. 262341,,B_%
  63. 262342,,B_%
  64. 17,18:
  65. B_%!16=0 S_%=
  66. B_%!16=&400C2
  67. B_%!4<>N_% S_%=
  68. -t%>150
  69. Q_%?x%>0:Q_%?x%-=1:
  70. 262365:
  71. 30,7,,L_%:
  72. 131077,"Wipe <RTrack$Scrap> ~C~vRF":
  73. F_(C_%):
  74. t$<255
  75. ?C_%>31:t$+=
  76. (?C_%):C_%+=1:
  77. M_(U_$):
  78. V_%,U_%,W_%,X_%,Y_%:
  79. 8,17,U_$
  80. ,,,,V_%:
  81. 30,6,,,V_%+4
  82. ,,U_%:
  83. 8,16,U_$,U_%,0:
  84. 272129,1<<3
  85. 30,6,,,W_%
  86. ,,Y_%:
  87. 30,6,,,!U_%+4
  88. ,,X_%:
  89. 272129,1<<2,Y_%,U_%+4,V_%-4,X_%+4,!U_%
  90. ,,,,C_%:!X_%=!U_%:
  91. 30,7,,U_%
  92. 30,7,,Y_%:=X_%
  93.